home *** CD-ROM | disk | FTP | other *** search
/ Introducing the New Way to Shop From Home / Introducing the New Way to Shop From Home (Iceland Foods) (2003).iso / pc / MacStepbyStep.dxr / Internal_208_speedshopper back.ls < prev    next >
Encoding:
Text File  |  2003-01-01  |  3.3 KB  |  79 lines
  1. on mouseDown
  2.   global gTotalCost, gTotalSaving, gChickenSaving, gBreadSaving, gSugarSaving, gProductTypes, gList1Quant, gList1Prod, gList1Cost, gList1Total, gList2Quant, gList2Prod, gList2Cost, gList2Total, gList3Quant, gList3Prod, gList3Cost, gList3Total, gList4Quant, gList4Prod, gList4Cost, gList4Total, gList5Quant, gList5Prod, gList5Cost, gList5Total, gList6Quant, gList6Prod, gList6Cost, gList6Total, gList7Quant, gList7Prod, gList7Cost, gList7Total, gList8Quant, gList8Prod, gList8Cost, gList8Total, gList9Quant, gList9Prod, gList9Cost, gList9Total, gList10Quant, gList10Prod, gList10Cost, gList10Total, gList11Quant, gList11Prod, gList11Cost, gList11Total, gList12Quant, gList12Prod, gList12Cost, gList12Total, gList13Quant, gList13Prod, gList13Cost, gList13Total
  3.   gList1Quant = 2
  4.   gList1Prod = string("Iceland 10 (1.6kg) Chicken Drumsticks")
  5.   gList1Cost = 2.49000000000000021
  6.   gList1Total = 4.0
  7.   gList2Quant = 1
  8.   gList2Prod = string("Birds Eye 4 Beef Quarter Pounders")
  9.   gList2Cost = 2.08999999999999986
  10.   gList2Total = 2.08999999999999986
  11.   gList3Quant = 1
  12.   gList3Prod = string("Iceland 2 Jumbo Haddock Fillets")
  13.   gList3Cost = 2.79000000000000004
  14.   gList3Total = 2.79000000000000004
  15.   gList4Quant = 2
  16.   gList4Prod = string("Napolina 400g Chopped Tomatoes")
  17.   gList4Cost = 0.78000000000000003
  18.   gList4Total = 1.56000000000000005
  19.   gList5Quant = 1
  20.   gList5Prod = string("Iceland 500g Pasta Shells")
  21.   gList5Cost = 0.55000000000000004
  22.   gList5Total = 0.55000000000000004
  23.   gList6Quant = 2
  24.   gList6Prod = string("Kingsmill 800g Wmeal Bread")
  25.   gList6Cost = 0.65000000000000002
  26.   gList6Total = 1.0
  27.   gList7Quant = 90
  28.   gList7Prod = string("Tate & Lyle Granulated Sugar")
  29.   gList7Cost = 0.58999999999999997
  30.   gList7Total = 53.10000000000000142
  31.   gList8Quant = 0
  32.   gList8Prod = string("blank")
  33.   gList8Cost = 0
  34.   gList8Total = 0
  35.   gList9Quant = 0
  36.   gList9Prod = string("blank")
  37.   gList9Cost = 0
  38.   gList9Total = 0
  39.   gList10Quant = 0
  40.   gList10Prod = string("blank")
  41.   gList10Cost = 0
  42.   gList10Total = 0
  43.   gList11Quant = 0
  44.   gList11Prod = string("blank")
  45.   gList11Cost = 0
  46.   gList11Total = 0
  47.   gList12Quant = 0
  48.   gList12Prod = string("blank")
  49.   gList12Cost = 0
  50.   gList12Total = 0
  51.   gList13Quant = 0
  52.   gList13Prod = string("blank")
  53.   gList13Cost = 0
  54.   gList13Total = 0
  55.   gTotalCost = gList1Total + gList2Total + gList3Total + gList4Total + gList5Total + gList6Total + gList7Total + gList8Total + gList9Total + gList10Total + gList11Total + gList12Total + gList13Total
  56.   gChickenSaving = 0.97999999999999998
  57.   gBreadSaving = 0.29999999999999999
  58.   gSugarSaving = 4.5
  59.   gTotalSaving = gChickenSaving + gBreadSaving + gSugarSaving
  60.   gProductTypes = 46
  61.   set the floatPrecision to 2
  62.   member(79).text = string(gList1Quant & "x")
  63.   member(75).text = gList1Prod
  64.   member(80).text = string("¬£" & gList1Total)
  65.   member(74).text = string(gList2Quant & "x")
  66.   member(92).text = gList2Prod
  67.   member(94).text = string("¬£" & gList2Total)
  68.   member(89).text = string(gList3Quant & "x")
  69.   member(91).text = gList3Prod
  70.   member(158).text = string("¬£" & gList3Total)
  71.   member(159).text = string(gList4Quant & "x")
  72.   member(160).text = gList4Prod
  73.   member(162).text = string("¬£" & gList4Total)
  74.   member(73).text = string("¬£" & gTotalCost)
  75.   member(105).text = string("¬£" & gTotalSaving)
  76.   member(104).text = string(gProductTypes)
  77.   go(#previous)
  78. end
  79.